home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Forever 4
/
Atari Forever 4.zip
/
Atari Forever 4.iso
/
PD_THEMA
/
CLI
/
SSL_CLI.1_4
/
DEMO.BAT
< prev
Wrap
DOS Batch File
|
1998-03-14
|
3KB
|
146 lines
@ECHO=OFF
WRAP=OFF
REM Copyright 1991: Stephan Slabihoud
CLS
CLEAR
IF%1= "" kein_parameter
:weiter
CLS
WRAP=OFF
ECHO
ECHO ##############################################################################
ECHO # #
ECHO #==================> Demonstrationsbatchdatei zum SSL-CLI. <=================#
ECHO # #
ECHO # Aufruf: DEMO.BAT [Laufwerk:] #
ECHO # #
ECHO ##############################################################################
ECHO
WRAP=ON
ECHO Bearbeite Laufwerk: %1
ECHO
ECHO 1) ... Mappingausgabe
ECHO 2) ... Belegungstabelle
ECHO 3) ... Statistik
ECHO 4) ... Laufwerk für 1),2),3) ändern
ECHO
ECHO 8) ... Löschen von Dateien (rekursiv)
ECHO 9) ... Ausgabe der Dateistruktur auf Diskette
ECHO 0) ... ENDE
:loop
GETKEY
IFERR= 57 dis
IFERR= 56 lös
IFERR= 52 cha
IFERR= 51 sta
IFERR= 50 chk
IFERR= 49 map
IFERR= 48 ende
GOTO loop
:dis
CLS
CLEAR
ECHO
ECHO Ausgabedatei wählen!
FILESELECT
SET%2 "%L"
IF%2= "" weiter
ECHO Ab welchem Ordner soll die Struktur ausgegeben werden?
FILESELECT
SET%3 "%L"
IF%3= "" weiter
STREE %3
SSAVE %2
GOTO weiter
:cha
ECHO
WRITE Neues Laufwerk eingeben (z.B. "C:") =>
INPUT%1
GOTO weiter
:sta
CLS
STAT %1
PAUSE
GOTO weiter
:map
MAPPING %1
PAUSE
GOTO weiter
:chk
CLS
CHKDSK %1
PAUSE
GOTO weiter
:lös
CLEAR
CLS
ECHO
ECHO Ordner und Filemaske bestimmen, danach OK! Für "%1\*.BAK" <Abbruch> wählen!
FILESELECT
CLS
SET%2 "%L"
IF%2= "" keine_maske
:weiter2
ECHO
ECHO Bearbeite: %2
ECHO
STREE %2
IFERR= 0 leerer_stack
:loop2
ECHO Soll %E gelöscht werden? (Ja/Ende/Alle/*)
GETKEY
IFERR= 74 lösche
IFERR= 106 lösche
IFERR= 69 weiter
IFERR= 101 weiter
IFERR= 65 alle
IFERR= 97 alle
POP
IFERR= 0 weiter
GOTO loop2
:lösche
DEL %E
ECHO %L ...gelöscht !!!
GOTO loop2
:alle
DEL %A
GOTO weiter
:keine_maske
ECHO
ECHO Es wurde kein Parameter angegeben! Soll "%1\*.BAK" angenommen werden? (Ja/*)
ECHO
SET%2 "%1\*.BAK"
GETKEY
IFERR= 74 weiter2
IFERR= 106 weiter2
GOTO weiter
:leerer_stack
ECHO
ECHO Keine Datei gefunden!
ECHO
PAUSE
GOTO weiter
:kein_parameter
ECHO
ECHO Es wurde kein Laufwerk angegeben!
ECHO
:ende
ECHO
END